﻿Imports CrystalDecisions.CrystalReports.Engine
Public Class frmThongKe

    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load

    End Sub
    Public Sub SetReport(ByVal tiede As String, ByVal rpt As ReportDocument)

        CrystalReportViewer1.ReportSource = rpt
        CrystalReportViewer1.RefreshReport()
        Me.Text = tiede
    End Sub

    Private Sub frmThongKe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class